home *** CD-ROM | disk | FTP | other *** search
/ Cerilica Vantage Pre-Release / Cerilica Vantage Pre-Release - Disc 2.iso / vantag.arc / !Vantage_PS_epsProcs < prev    next >
Encoding:
Text File  |  2001-07-06  |  3.5 KB  |  165 lines
  1. %%BeginResource: procset Cerilica_VantageEPS 0.52 0
  2. %%Title: (Vantage EPS procedures)
  3. %%Version: 0.52 0
  4. %%CreationDate: (99/4/7) ()        % (7-Apr-1999)
  5. %%Copyright: ((C) 1998 Cerilica All Rights Reserved)
  6. %%Author: (Simon Birtwistle)
  7. userdict /Vantage_EPS 85 dict dup begin put
  8.  
  9. /bd{bind def}bind def
  10. /initialize{Vantage_EPS begin}bd
  11. /terminate{currentdict Vantage_EPS eq{end}if}bd
  12. /version{0.52}bd
  13. /pops{{pop}repeat}bd
  14.  
  15. /pagesave null def
  16. /beginpage{/pagesave save store}bd
  17. /endpage{
  18.  pagesave restore
  19.  /pagesave null store
  20.  gsave annotatepage showpage grestore
  21. }def
  22.  
  23. /_paths 0 def
  24. /_pt 0 def                    % path: b0=fill, b1=stroke
  25. /_eo true def                    % winding rule true=eofill
  26. /_ft 0 def                    % fill type 0=flat
  27. /_fc 4 array def                % fill colour
  28. /_sc 4 array def                % stroke colour
  29. /_fo false def /_so false def            % overprinting
  30.  
  31. /k{_fc astore pop /_ft 0 store}bd
  32. /K{_sc astore pop}bd
  33. /x{1 exch sub 4{dup 6 index mul exch}repeat pop k 5 pops}bd
  34. /X{1 exch sub 4{dup 6 index mul exch}repeat pop K 5 pops}bd
  35. /setcmykcolor where{
  36.  /setcmykcolor get /sc exch def
  37. }{
  38.  /sc{
  39.   3{dup 3 1 roll add 1 exch sub 4 1 roll}repeat pop
  40.   setrgbcolor
  41.  }bd
  42. }ifelse
  43. /setoverprint where{
  44.  /setoverprint get /so exch def
  45. }{
  46.  /so{pop}bd
  47. }ifelse
  48. /sfc{_fo so _fc aload pop sc}bd
  49. /ssc{_so so _sc aload pop sc}bd
  50. /W{/_ft -2 store}bd
  51. /q{gsave}bd
  52. /Q{grestore}bd
  53.  
  54. /cutout{
  55.  currentflat
  56.  {gsave
  57.   {flattenpath _eo{eoclip}{clip}ifelse}stopped
  58.   {grestore currentflat dup 100 ge{pop exit}if
  59.    2 mul dup 100 gt{pop 100}if setflat
  60.   }{grestore exit}ifelse
  61.  }loop
  62.  flattenpath _eo{eoclip}{clip}ifelse newpath
  63.  setflat
  64. }bd
  65.  
  66. /fillpath{_ft
  67.  dup -2 eq{cutout /_ft -1 store}if
  68.  dup 0 eq{sfc _eo{eofill}{fill}ifelse}if
  69.  dup 1 eq{}if
  70.  2 eq{}if
  71. }bd
  72.  
  73. /showpath{_paths 1 lt{_pt
  74.  _ft -2 eq{_eo{eoclip}{clip}ifelse /_ft -1 store pop 0}if
  75.  dup 1 and 1 eq{gsave fillpath grestore}if
  76.  2 and 2 eq{ssc stroke}if
  77.  newpath}if
  78. }bd
  79.  
  80. /O{0 ne /_fo exch store}bd
  81. /R{0 ne /_so exch store}bd
  82. /eo{0 ne /_eo exch store}bd
  83.  
  84. /u{}bd                        % start of group
  85. /U{}bd                        % end of group
  86. /*u{/_paths _paths 1 add store}bd        % start of composite path
  87. /*U{/_paths _paths 1 sub store showpath}bd    % end of composite path
  88.  
  89. /H{}bd
  90. /h{closepath}bd
  91. /N{/_pt 0 store showpath}bd
  92. /n{closepath N}bd
  93. /F{/_pt 1 store showpath}bd
  94. /f{closepath F}bd
  95. /S{/_pt 2 store showpath}bd
  96. /s{closepath S}bd
  97. /B{/_pt 3 store showpath}bd
  98. /b{closepath B}bd
  99.  
  100. /annotatepage dup where{pop pop}{{}bd}ifelse
  101.  
  102. /j{setlinejoin}bd
  103. /J{setlinecap}bd
  104. /Js{pop pop pop 0 J}bd
  105. /Je{pop pop pop 0 J}bd
  106. /w{abs setlinewidth}bd
  107. /d{setdash}bd
  108. /M{setmiterlimit}bd
  109.  
  110. /setstrokeadjust where
  111. {pop
  112.  /sa{}bd
  113.  /m{moveto}bd
  114.  /l{lineto}bd
  115.  /c{curveto}bd
  116.  true setstrokeadjust
  117. }{
  118.  /sa{transform .25 sub round .25 add exch
  119.   .25 sub round .25 add exch itransform}bd
  120.  /m{sa moveto}bd
  121.  /l{sa lineto}bd
  122.  /c{3{sa 6 2 roll}repeat curveto}bd
  123. }ifelse
  124. /L{l}bd
  125. /C{c}bd
  126.  
  127. /t{gsave 6 array astore concat}bd
  128. /T{grestore}bd
  129.  
  130. /_save [] def
  131. /_stack 0 def
  132. /_count 0 def
  133.  
  134. /^{
  135.  /_save save store
  136.  /_stack countdictstack store
  137.  /_count count 11 sub store
  138.  userdict begin
  139.  /showpage{}def
  140.  0 setgray 0 setlinecap
  141.  1 setlinewidth 0 setlinejoin
  142.  10 setmiterlimit []0 setdash newpath
  143.  /languagelevel where{pop
  144.   languagelevel 1 ne{
  145.    false setstrokeadjust false setoverprint
  146.   }if
  147.  }if
  148.  4 index sub exch 5 index sub exch 4 2 roll
  149.  4 index sub exch 5 index sub exch 6 4 roll
  150.  6 array astore concat
  151.  0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath clip
  152.  newpath 1 exch div exch 1 exch div exch scale
  153.  exch neg exch neg translate
  154. }bd
  155.  
  156. /~{
  157.  count _count sub pops
  158.  countdictstack _stack sub{end}repeat
  159.  _save restore
  160. }bind def
  161.  
  162. end
  163. %%EndResource
  164.  
  165.